home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / CDROM / ACDPlay / arexx / ACDPShell.rexx next >
OS/2 REXX Batch file  |  1997-04-27  |  1KB  |  23 lines
  1. /* ACDPShell.rexx 1.1 by Martin Kresse
  2.    Use this script to test the arexx port of ACDPlay */
  3.  
  4. OPTIONS PROMPT 'Command> '                  /* set prompt */
  5. OPTIONS RESULTS                             /* demand 2nd results */
  6. address 'ACDPLAY'                           /* set destination for commands */
  7.  
  8. Start:  SIGNAL ON Syntax                    /* set exeption labels */
  9.         SIGNAL ON Error
  10.  
  11.         do forever
  12.             parse pull input                /* read command line */
  13.             interpret input                 /* execute this command line */
  14.             if RESULT ~= 'RESULT' then      /* if there is any 2nd result, */
  15.                 say '--->' RESULT           /* display it */
  16.         end
  17.  
  18. Syntax: say 'Error' RX 'in line' sigl':' errortext(RC)  /* display error, */
  19.         SIGNAL Start                        /* errortext and jump back */
  20.  
  21. Error:  say 'Returncode: ' RC               /* display errorcode */
  22.         SIGNAL Start                        /* and jump back to Start */
  23.